home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
addqbe25.zip
/
QBETEST.PRG
< prev
next >
Wrap
Text File
|
1993-08-16
|
16KB
|
593 lines
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ 08/16/93 QBETEST.PRG 20:44:03 ║
* ║ ║
* ╟─────────────────────────────────────────────────────────╢
* ║ ║
* ║ Harold Chattaway ║
* ║ ║
* ║ Copyright (c) 1993 EAGLE Software Engineering ║
* ║ 3 Old Northfield Rd ║
* ║ Ashby, MA 01431 ║
* ║ ║
* ║ Description: ║
* ║ This program was automatically generated by GENSCRN. ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
DO CASE
CASE _WINDOWS
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
m.rborder = SET("READBORDER")
SET READBORDER ON
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ Windows Window definitions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
IF NOT WEXIST("sqltest") ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
DEFINE WINDOW sqltest ;
AT 5.000, 5.000 ;
SIZE 26.615,93.667 ;
TITLE " Test of the Add On Query By Example Application F10 to Activate ADDONQBE" ;
FONT "MS Sans Serif", 8 ;
STYLE "B" ;
NOFLOAT ;
NOCLOSE ;
NOMINIMIZE ;
COLOR RGB(,,,0,0,255)
MOVE WINDOW sqltest CENTER
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/Windows Setup Code - SECTION 2 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
expopt = ""
action = ""
use customer
scatter memvar memo
push key
on key label F10 do addonqbe.app with wontop(), varread()
on key label F3 do prev
on key label F4 do next
=rand(-1)
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/Windows Screen Layout ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
IF WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest SAME
ELSE
ACTIVATE WINDOW sqltest NOSHOW
ENDIF
@ 8.308,8.833 TO 14.923,85.500 ;
PATTERN 1 ;
PEN 2, 8 ;
STYLE "32" ;
COLOR RGB(0,255,255,0,0,255)
@ 3.000,28.500 GET m.custcode ;
SIZE 0.938,4.000 ;
DEFAULT 0 ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 3.077,49.167 GET custname ;
SIZE 0.938,30.000 ;
DEFAULT " " ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 8.923,32.333 GET m.street ;
SIZE 0.938,35.000 ;
DEFAULT " " ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 10.231,32.500 GET m.city ;
SIZE 0.938,26.000 ;
DEFAULT " " ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 11.538,32.500 GET m.state ;
SIZE 0.938,4.200 ;
DEFAULT " " ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 11.692,49.667 GET m.zipcode ;
SIZE 0.938,17.600 ;
DEFAULT " " ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 13.077,32.333 GET m.phone ;
SIZE 0.938,22.400 ;
DEFAULT " " ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
PICTURE "@R (999)999-9999" ;
COLOR ,RGB(255,255,255,,,,)
@ 18.462,28.667 GET m.lastpaymnt ;
SIZE 0.938,14.200 ;
DEFAULT { / / } ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 18.231,69.167 GET m.stmtdate ;
SIZE 0.938,15.400 ;
DEFAULT { / / } ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 20.000,28.833 GET m.stmtbal ;
SIZE 0.938,14.000 ;
DEFAULT 0 ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 19.846,69.333 GET m.chrgtax ;
SIZE 0.938,1.200 ;
DEFAULT .F. ;
FONT "Times New Roman", 9 ;
STYLE "B" ;
COLOR ,RGB(255,255,255,,,,)
@ 2.769,19.667 SAY "Cust #:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 2.846,36.500 SAY "Customer:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 8.846,23.000 SAY "Street:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 10.231,25.167 SAY "City:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,0,0,255)
@ 11.462,24.000 SAY "State:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 11.538,44.667 SAY "Zip:" ;
FONT "Times New Roman", 11 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 12.923,21.000 SAY "Phone #:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 18.154,11.167 SAY "Last Payment:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 18.077,49.500 SAY "Statement Date:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 19.692,10.667 SAY "Statement Bal:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 19.615,53.833 SAY "Charge Tax:" ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
COLOR RGB(255,255,255,,,,)
@ 1.538,17.167 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 1.538,22.167 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 7.846,20.333 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 17.385,9.667 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 17.385,24.833 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 8.154,42.167 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 23.615,5.500 GET action ;
PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
SIZE 1.150,12.000,2.000 ;
DEFAULT 1 ;
FONT "Times New Roman", 12 ;
STYLE "B" ;
VALID _qif18fyko() ;
COLOR ,,,,,,,,RGB(255,0,255,,,,)
@ 1.923,8.667 TO 5.461,85.000 ;
PEN 2, 8 ;
STYLE "32" ;
COLOR RGB(0,255,255,,,,)
@ 17.000,5.667 TO 22.077,88.000 ;
PEN 2, 8 ;
STYLE "32" ;
COLOR RGB(0,255,255,,,,)
@ 1.538,13.000 SAY "Keys" ;
FONT "Terminal", 9 ;
STYLE "B" ;
COLOR RGB(255,255,0,,,,)
@ 7.846,13.167 SAY "Address" ;
FONT "Terminal", 9 ;
STYLE "B" ;
COLOR RGB(255,255,0,,,,)
@ 16.615,10.000 SAY "Financial Info" ;
FONT "Terminal", 9 ;
STYLE "B" ;
COLOR RGB(255,255,0,,,,)
IF NOT WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest
ENDIF
READ CYCLE
RELEASE WINDOW sqltest
#REGION 0
SET READBORDER &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/Windows Cleanup Code ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
pop key
close databases
return
CASE _DOS
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ MS-DOS Window definitions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
IF NOT WEXIST("sqltest") ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
DEFINE WINDOW sqltest ;
FROM INT((SROW()-21)/2),INT((SCOL()-74)/2) ;
TO INT((SROW()-21)/2)+20,INT((SCOL()-74)/2)+73 ;
TITLE "┤ Test of the Add On Query By Example Application ├" ;
FOOTER "┤ F10=Add On Query By Example ├" ;
NOFLOAT ;
NOCLOSE ;
SHADOW ;
NOMINIMIZE ;
COLOR SCHEME 5
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/MS-DOS Setup Code - SECTION 2 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
expopt = ""
action = ""
use customer
scatter memvar memo
push key
on key label F10 do addonqbe.app with wontop(), varread()
on key label F3 do prev
on key label F4 do next
=rand(-1)
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/MS-DOS Screen Layout ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
IF WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest SAME
ELSE
ACTIVATE WINDOW sqltest NOSHOW
ENDIF
@ 2,14 GET m.custcode ;
SIZE 1,4 ;
DEFAULT 0
@ 2,31 GET custname ;
SIZE 1,30 ;
DEFAULT " "
@ 6,19 GET m.street ;
SIZE 1,35 ;
DEFAULT " "
@ 7,19 GET m.city ;
SIZE 1,15 ;
DEFAULT " "
@ 8,19 GET m.state ;
SIZE 1,2 ;
DEFAULT " "
@ 8,28 GET m.zipcode ;
SIZE 1,9 ;
DEFAULT " "
@ 9,19 GET m.phone ;
SIZE 1,13 ;
DEFAULT " " ;
PICTURE "@R (999)999-9999"
@ 13,23 GET m.lastpaymnt ;
SIZE 1,8 ;
DEFAULT { / / }
@ 13,50 GET m.stmtdate ;
SIZE 1,8 ;
DEFAULT { / / }
@ 14,23 GET m.stmtbal ;
SIZE 1,8 ;
DEFAULT 0
@ 14,50 GET m.chrgtax ;
SIZE 1,1 ;
DEFAULT .F.
@ 2,5 SAY "Cust #:" ;
SIZE 1,7, 0
@ 2,21 SAY "Customer:" ;
SIZE 1,9, 0
@ 1,3 TO 3,62
@ 6,11 SAY "Street:" ;
SIZE 1,7, 0
@ 7,13 SAY "City:" ;
SIZE 1,5, 0
@ 8,12 SAY "State:" ;
SIZE 1,6, 0
@ 8,23 SAY "Zip:" ;
SIZE 1,4, 0
@ 9,10 SAY "Phone #:" ;
SIZE 1,8, 0
@ 5,8 TO 10,57
@ 13,8 SAY "Last Payment:" ;
SIZE 1,13, 0
@ 13,34 SAY "Statement Date:" ;
SIZE 1,15, 0
@ 14,7 SAY "Statement Bal:" ;
SIZE 1,14, 0
@ 14,38 SAY "Charge Tax:" ;
SIZE 1,11, 0
@ 12,4 TO 15,62
@ 1,6 SAY "┤" ;
SIZE 1,1, 0
@ 1,11 SAY "├" ;
SIZE 1,1, 0
@ 5,10 SAY "┤" ;
SIZE 1,1, 0
@ 12,7 SAY "┤" ;
SIZE 1,1, 0
@ 12,21 SAY "├" ;
SIZE 1,1, 0
@ 5,24 SAY "├" ;
SIZE 1,1, 0
@ 12,8 SAY "Billing Info " ;
SIZE 1,13, 0
@ 1,7 SAY "Keys" ;
SIZE 1,4, 0
@ 5,11 SAY "Customer Info" ;
SIZE 1,13, 0
@ 17,1 GET action ;
PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
SIZE 1,12,2 ;
DEFAULT 1 ;
VALID _qif18g38s()
IF NOT WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest
ENDIF
READ CYCLE
RELEASE WINDOW sqltest
#REGION 0
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/MS-DOS Cleanup Code ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
pop key
close databases
return
ENDCASE
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _QIF18FYKO action VALID ║
* ║ ║
* ║ Function Origin: ║
* ║ ║
* ║ From Platform: Windows ║
* ║ From Screen: QBETEST, Record Number: 31 ║
* ║ Variable: action ║
* ║ Called By: VALID Clause ║
* ║ Object Type: Push Button ║
* ║ Snippet Number: 1 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
FUNCTION _qif18fyko && action VALID
#REGION 1
do case
case action = "Next"
do next
case action = "Prev"
do prev
case action = "Top"
go top
scatter memvar memo
show gets
wait "Top of File..." window nowait
case action = "Bottom"
go bottom
scatter memvar memo
show gets
wait "Bottom of File..." window nowait
case action = "Quit"
clear read
endcase
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _QIF18G38S action VALID ║
* ║ ║
* ║ Function Origin: ║
* ║ ║
* ║ From Platform: MS-DOS ║
* ║ From Screen: QBETEST, Record Number: 77 ║
* ║ Variable: action ║
* ║ Called By: VALID Clause ║
* ║ Object Type: Push Button ║
* ║ Snippet Number: 2 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
FUNCTION _qif18g38s && action VALID
#REGION 1
do case
case action = "Next"
do next
case action = "Prev"
do prev
case action = "Top"
go top
scatter memvar memo
show gets
wait "Top of File..." window nowait
case action = "Bottom"
go bottom
scatter memvar memo
show gets
wait "Bottom of File..." window nowait
case action = "Quit"
clear read
endcase
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/MS-DOS Supporting Procedures and Functions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
procedure next
if !eof()
skip
else
go bottom
endif
scatter memvar memo
show gets
return
procedure prev
if !bof()
skip -1
else
go top
endif
scatter memvar memo
show gets
return